home *** CD-ROM | disk | FTP | other *** search
- assume cs:text
- text segment para public 'CODE'
-
- public _setfs
- _setfs proc near
- mov ax,4[esp]
- mov fs,ax
- ret
- _setfs endp
-
- public _getmode
- _getmode proc near
- push fs
- mov ax,0110H ; tbios selector
- mov fs,ax
- mov ah,1 ; get screen mode
- call pword ptr fs:[01c0H] ; system info BIOS
- pop fs
- ret
- _getmode endp
-
- public _putfs
- _putfs proc near
- push ebx
- mov eax,8[esp]
- mov ebx,12[esp]
- mov fs:[eax],ebx
- pop ebx
- ret
- _putfs endp
-
- public _getfs
- _getfs proc near
- mov eax,4[esp]
- mov eax,fs:[eax]
- ret
- _getfs endp
-
- text ends
- end
-